/* Taken from the Li18nux base test suite.  */

#define _XOPEN_SOURCE 500
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <wchar.h>


int
main(void)
{
	FILE *fp;
	const char *str = "abcdef";
	wint_t ret, wc, ungetone = 0x00E4; /* 0x00E4 means `a umlaut'. */
	char fname[] = "/tmp/tst-ungetwc1.out.XXXXXX";
	int fd;
	int result = 0;

	puts("This program runs on de_DE.UTF-8 locale.");
	if (setlocale(LC_ALL, "de_DE.UTF-8") == NULL) {
		fprintf(stderr, "Err: Cannot run on the de_DE.UTF-8 locale");
		exit(EXIT_FAILURE);
	}

	fd = mkstemp(fname);
	if (fd == -1) {
		printf("cannot open temp file: %m\n");
		exit(EXIT_FAILURE);
	}

	/* Write some characters to `testfile'. */
	if ((fp = fdopen(fd, "w")) == NULL) {
		fprintf(stderr, "Cannot open 'testfile'.");
		exit(EXIT_FAILURE);
	}
	fputs(str, fp);
	fclose(fp);

	/* Open `testfile'. */
	if ((fp = fopen(fname, "r")) == NULL) {
		fprintf(stderr, "Cannot open 'testfile'.");
		exit(EXIT_FAILURE);
	}

	/* Unget a character. */
	ret = ungetwc(ungetone, fp);
	printf("Unget a character (0x%04x)\n", (unsigned int) ungetone);
	fflush(stdout);
	if (ret == WEOF) {
		puts("ungetwc() returns NULL.");
		exit(EXIT_SUCCESS);
	}

	/* Reget a character. */
	wc = getwc(fp);
	printf("Reget a character (0x%04x)\n", (unsigned int) wc);
	fflush(stdout);
	if (wc == ungetone) {
		puts("The ungotten character is equal to the regotten character.");
		fflush(stdout);
	} else {
		puts("The ungotten character is not equal to the regotten character.");
		printf("ungotten one: %04x, regetone: %04x", ungetone, wc);
		fflush(stdout);
		result = 1;
	}
	fclose(fp);

	unlink(fname);

	return result;
}
